                         /* Andrs Esteban Martnez Huta
                                                     10*/
Real Peso,Tarifa,Vrmcia,VrEnvio,Tarifadicional,Porciento,Descuento
Cadena [50] Nombre,Dia,FormadePago
Entero x

Inicio
  Para x<-1 Hasta 5 Haga
    Escriba " Por favor digite dia: "
    Lea Dia
    Escriba " Por favor digite Nombre Cliente: "
    Lea Nombre
    Escriba " Por favor digite forma de Pago: "
    Lea FormadePago
    Escriba " Por favor digite Valor mercancia: "
    Lea Vrmcia
    Escriba " Por favor digite Peso mercancia: "
    Lea Peso
    Llamar Nueva_linea
//------------------------------ Tarifas -----------------------------------------------  
     Si (Peso>1) y (Peso<100) Entonces
       Tarifa<-20000
       VrEnvio<-Vrmcia+tarifa
       Escriba " Dia: ", Dia
       Llamar Nueva_linea
       Escriba " Senor(a): ", Nombre
       Llamar Nueva_linea
       Escriba " Valor tarifa: ", Tarifa
       Llamar Nueva_linea
       Escriba " Valor Envio Total: ", VrEnvio
       Llamar Nueva_linea
       Escriba " =============================================== "
       Llamar Nueva_linea
     Sino
        Si (Peso>=100) y (Peso<=150) Entonces
          Tarifa<-25000
          VrEnvio<-Vrmcia+Tarifa
          Escriba " Dia: ", Dia
          Llamar Nueva_linea
          Escriba " Senor(a): ", Nombre
          Llamar Nueva_linea
          Escriba " Valor tarifa: ", Tarifa
          Llamar Nueva_linea
          Escriba " Valor Envio Total: ", VrEnvio
          Llamar Nueva_linea
          Escriba " =============================================== "
          Llamar Nueva_linea
         Sino
           Si (Peso>150) y (Peso<=200) Entonces
             Tarifa<-30000
             VrEnvio<-Vrmcia+Tarifa
             Escriba " Dia: ", Dia
             Llamar Nueva_linea
             Escriba " Senor(a): ", Nombre
             Llamar Nueva_linea
             Escriba " Valor tarifa: ", Tarifa
             Llamar Nueva_linea
             Escriba " Valor Envio Total: ", VrEnvio
             Llamar Nueva_linea
             Escriba " =============================================== "
             Llamar Nueva_linea
           Sino
              Si (Peso>200) Entonces
                Tarifadicional<-Peso+10
                Tarifa<-35000
                VrEnvio<-Vrmcia+Tarifa+2000
                Escriba " Dia: ", Dia
                Llamar Nueva_linea
                Escriba " Senor(a): ", Nombre
                Llamar Nueva_linea
                Escriba " Valor tarifa: ", Tarifa
                Llamar Nueva_linea
                Escriba " Valor Envio Total: ", VrEnvio
                Llamar Nueva_linea
                Escriba " =============================================== "
                Llamar Nueva_linea
//------------------------------- Descuentos ---------------------------------------------
              Sino
                 Si (Vrmcia>=300000) y (Vrmcia<=600000) Entonces
                   Porciento<-Vrmcia*0.10
                   Descuento<-Vrmcia-Porciento
                   Escriba " Tiene descuento de 10% para un total de: ", Descuento
                   Llamar Nueva_linea
                   Escriba " =============================================== "
                   Llamar Nueva_linea
                 Sino
                   Si (Vrmcia>600000) y (Vrmcia<=1000000) Entonces
                     Porciento<-Vrmcia*0.20
                     Descuento<-Vrmcia-Porciento
                     Escriba " Tiene descuento de 20% para un total de: ", Descuento
                     Llamar Nueva_linea
                     Escriba " =============================================== "
                     Llamar Nueva_linea
                   Sino
                     Si (Vrmcia>1000000) Entonces
                       Porciento<-Vrmcia*0.30
                       Descuento<-Vrmcia-Porciento
                       Escriba " Tiene descuento de 30% para un total de: ", Descuento
                       Llamar Nueva_linea
                       Escriba " =============================================== "
                       Llamar Nueva_linea
//----------------------------------------------- Promociones ----------------------------------------------
                     Sino
                       Si (Dia=lunes) y (FormadePago=tarjeta) Entonces
                         Porciento<-0.50
                         Descuento<-Vrmcia-Porciento
                         Escriba " Por promocin su total es de: ", Descuento
                         Llamar Nueva_linea
                         Escriba " =============================================== "
                         Llamar Nueva_linea
                       Sino 
                         Si (FormadePago=efectivo) y (Vrmcia>1000000) Entonces
                           Porciento<-Vrmcia*0.40
                           Descuento<-Vrmcia-Porciento
                           Escriba " Por promocin su total es de: ", Descuento
                           Llamar Nueva_linea
                           Escriba " =============================================== "
                           Llamar Nueva_linea  
                         Fin Si  
                       Fin Si  
                     Fin Si     
                   Fin Si  
                 Fin Si
              Fin Si
           Fin Si
        Fin Si
     Fin Si
  Fin Para
Fin    